! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialization File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Initialize.f90
! Time                 : Mon Nov 23 18:26:23 2020
! Working directory    : /n/home08/kbates/Aromatics/CRI_chamber
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Initialize

  USE aromatics_kpp_Parameters, ONLY: dp, NVAR, NFIX
  IMPLICIT NONE

CONTAINS


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialize - function to initialize concentrations
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE Initialize ( )


  USE aromatics_kpp_Global

  INTEGER :: i
  REAL(kind=dp) :: x

  CFACTOR = 2.500000e+19_dp

  x = (1.0E-30)*CFACTOR
  DO i = 1, NVAR
    VAR(i) = x
  END DO

  x = (1.0E-30)*CFACTOR
  DO i = 1, NFIX
    FIX(i) = x
  END DO

  VAR(25) = (1.0002E-2)*(0.0E-9)*CFACTOR
  VAR(26) = (1.0001E-2)*(0.0E-9)*CFACTOR
  VAR(27) = (1.0003E-2)*(1.0E-3)*CFACTOR
  VAR(82) = (4.9999E-1)*(5.0E-6)*CFACTOR
  VAR(189) = (5.0004E-3)*(5.0E-3)*CFACTOR
  FIX(2) = (2.1E-1)*CFACTOR
! constant rate coefficients
  RCONST(13) = 5.35e+07
  RCONST(22) = 2e-11
  RCONST(26) = 4e-12
  RCONST(376) = 1.7e-11
  RCONST(381) = 2.3e-12
  RCONST(382) = 2.63e-11
  RCONST(383) = 3.78e-12
  RCONST(392) = 4.65e-11
  RCONST(393) = 1.25e-11
  RCONST(398) = 2.3e-12
  RCONST(403) = 2.3e-12
  RCONST(408) = 2.3e-12
  RCONST(409) = 7.3e-11
  RCONST(411) = 9.77e-11
  RCONST(417) = 2.08e-12
  RCONST(418) = 7.16e-11
  RCONST(420) = 9.64e-11
  RCONST(426) = 2.08e-12
  RCONST(427) = 8.31e-11
  RCONST(429) = 1.12e-10
  RCONST(435) = 2.4e-13
  RCONST(437) = 1.5e-12
  RCONST(438) = 9e-13
  RCONST(439) = 9e-14
  RCONST(446) = 2.3e-12
  RCONST(447) = 1.53e-12
  RCONST(448) = 3.13e-13
  RCONST(461) = 2.3e-12
  RCONST(470) = 1.65e-11
  RCONST(472) = 1.25e-11
  RCONST(476) = 1.96e-11
  RCONST(479) = 7.3e-13
  RCONST(481) = 1.89e-11
  RCONST(483) = 9.2e-13
  RCONST(486) = 3.57e-11
  RCONST(491) = 1.31e-12
  RCONST(492) = 2.5e-11
  RCONST(494) = 1.09e-12
  RCONST(495) = 2.13e-11
  RCONST(506) = 2.3e-12
  RCONST(510) = 2.3e-12
  RCONST(512) = 1.27e-12
  RCONST(514) = 4.42e-12
  RCONST(519) = 2.3e-12
  RCONST(521) = 1.85e-12
  RCONST(523) = 4.21e-11
  RCONST(525) = 2.5e-11
  RCONST(526) = 1.03e-11
  RCONST(527) = 3.74e-11
  RCONST(533) = 2.3e-12
  RCONST(534) = 1.87e-11
  RCONST(539) = 2.3e-12
  RCONST(541) = 3.2e-11
  RCONST(542) = 1.38e-12
  RCONST(546) = 2.3e-12
  RCONST(549) = 1.79e-12
  RCONST(550) = 3.25e-11
  RCONST(552) = 5.86e-12
! END constant rate coefficients

! INLINED initializations

        TSTART = 0
        TEND = TSTART + 180000
        DT = 60.0
        TEMP = 278 + 30.0

! End INLINED initializations

      
END SUBROUTINE Initialize

! End of Initialize function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



END MODULE aromatics_kpp_Initialize

